home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #42 (1995-01)(PackMAN)(DE)[WB].zip / Purity #42 (1995-01)(PackMAN)(DE)[WB].adf / Install / PURITY < prev    next >
Text File  |  1995-01-07  |  1KB  |  59 lines
  1. ; Installer-Script für PURITY-Programmpakete
  2. ; (c) by PackMAN, Falk Zühlsdorff 1995
  3.  
  4. (set #msg
  5. (cat "\n\n"
  6.      "PURITY #42 Installation\n\n"
  7.      "Programmpakete können einfach\n"
  8.      "in beliege Verzeichnisse\n"
  9.      "kopiert werden...\n\n"
  10.      "PackMAN in 1995")
  11. )
  12.  
  13. (set #target("Work:"))
  14.  
  15. ;--------------------------------------------------------------
  16.  
  17. (procedure CopyDir
  18.  (
  19.    (set mydest
  20.     (askdir
  21.      (prompt #lds)
  22.      (help "Du kannst doch einen File-Requester bedienen ?")
  23.      (default #target)
  24.         )
  25.    )
  26.  
  27.   (set #target (mydest))
  28.  
  29.   (copyfiles
  30.     (prompt "Schublade wirklich kopieren ?")
  31.     (help "...")
  32.     (source "Purity 42:")
  33.     (pattern #mypattern)
  34.     (dest mydest)
  35.     (infos)
  36.     (confirm)
  37.   )
  38.  )
  39. )
  40.  
  41. ;-------------------------------------------------------------
  42.  
  43. (message #msg)
  44. (welcome)
  45.  
  46. (set #lds("Wohin Verzeichnis > DiskLabel < kopieren ?"))
  47. (set #mypattern("DiskLabel"))
  48. (CopyDir)
  49.  
  50. (set #lds("Wohin Verzeichnis > Includes3v1 < kopieren ?"))
  51. (set #mypattern("Includes3v1"))
  52. (CopyDir)
  53.  
  54. (set #lds("Wohin Verzeichnis > JSplit < kopieren ?"))
  55. (set #mypattern("JSplit"))
  56. (CopyDir)
  57.  
  58. (exit)
  59.